Quản lý phần mềm bán vé xe VB
8.360 lượt xem;
- Update_he_thong.vb
- Library /
- PhanMemBanVeXe_Full /
- project /
1 Imports System.Data.SqlClient
2 Public Class Update_he_thong
3 Private lenh As String
4 Private bang As DataTable
5
6 Public Sub update_()
7 lenh = "Delete from ChiTietTuyen where IdThoiDiem in (Select IdThoiDiem from ThoiDiem where Ngay < '" + CStr(Today.Date) + "')"
8 'MessageBox.Show(lenh)
9 Dim com1 As New SqlCommand(lenh, connect)
10 Try
11 connect.Open()
12 com1.ExecuteNonQuery()
13 connect.Close()
14 Catch ex As Exception
15 connect.Close()
16 'MessageBox.Show("Xoa ko thanh cong")
17 End Try
18 lenh = "Select * from ChiTietTuyen"
19 bang = Doc_bang(lenh)
20 If bang.Rows.Count = 0 Then
21 'MessageBox.Show(bang.Rows.Count.ToString)
22 lenh = "Delete from ThoiDiem"
23 Else
24 'MessageBox.Show(bang.Rows.Count.ToString)
25 lenh = "Delete from ThoiDiem where Ngay < '" + CStr(Today.Date) + "'"
26 'IdThoiDiem <> (Select distinct IdThoiDiem from ChiTietTuyen) and
27 'MessageBox.Show(lenh)
28 End If
29
30 'MessageBox.Show(lenh1)
31 'MessageBox.Show(lenh)
32 ''connect.Close()
33 Dim com2 As New SqlCommand(lenh, connect)
34 Try
35 connect.Open()
36 com2.ExecuteNonQuery()
37 connect.Close()
38 Catch ex As Exception
39 connect.Close()
40 'MessageBox.Show("Xoa ko thanh cong")
41 End Try
42
43 '--------------------------------------------------Xu ly voi bang chuyenxxe, chongoi, banve
44 lenh = "Delete from BanVe where IdChuyen in( Select IdChuyen from ChuyenXe where NgayDi < '" + CStr(Today.Date) + "')"
45 Dim com As New SqlCommand(lenh, connect)
46 Try
47 connect.Open()
48 com.ExecuteNonQuery()
49 connect.Close()
50 Catch ex As Exception
51 connect.Close()
52 'MessageBox.Show("Xoa ko thanh cong")
53 End Try
54
55 lenh = "Delete from ChoNgoi where IdChuyen in( Select IdChuyen from ChuyenXe where NgayDi < '" + CStr(Today.Date) + "')"
56 Dim com4 As New SqlCommand(lenh, connect)
57 Try
58 connect.Open()
59 com4.ExecuteNonQuery()
60 connect.Close()
61 Catch ex As Exception
62 connect.Close()
63 'MessageBox.Show("Xoa ko thanh cong")
64 End Try
65
66
67 lenh = "Select * from BanVe"
68 bang = Doc_bang(lenh)
69 If bang.Rows.Count = 0 Then
70 'MessageBox.Show(bang.Rows.Count.ToString)
71 lenh = "Delete from ChuyenXe"
72 Else
73 'MessageBox.Show(bang.Rows.Count.ToString)
74 lenh = "Delete from ChuyenXe where IdChuyen <> (Select IdChuyen from BanVe)"
75 End If
76
77 'MessageBox.Show(lenh)
78 'MessageBox.Show(lenh)
79 'connect.Close()
80 Dim com3 As New SqlCommand(lenh, connect)
81 Try
82 connect.Open()
83 com3.ExecuteNonQuery()
84 connect.Close()
85 Catch ex As Exception
86 connect.Close()
87 'MessageBox.Show("Xoa ko thanh cong")
88 End Try
89
90 End Sub
91 End Class
2 Public Class Update_he_thong
3 Private lenh As String
4 Private bang As DataTable
5
6 Public Sub update_()
7 lenh = "Delete from ChiTietTuyen where IdThoiDiem in (Select IdThoiDiem from ThoiDiem where Ngay < '" + CStr(Today.Date) + "')"
8 'MessageBox.Show(lenh)
9 Dim com1 As New SqlCommand(lenh, connect)
10 Try
11 connect.Open()
12 com1.ExecuteNonQuery()
13 connect.Close()
14 Catch ex As Exception
15 connect.Close()
16 'MessageBox.Show("Xoa ko thanh cong")
17 End Try
18 lenh = "Select * from ChiTietTuyen"
19 bang = Doc_bang(lenh)
20 If bang.Rows.Count = 0 Then
21 'MessageBox.Show(bang.Rows.Count.ToString)
22 lenh = "Delete from ThoiDiem"
23 Else
24 'MessageBox.Show(bang.Rows.Count.ToString)
25 lenh = "Delete from ThoiDiem where Ngay < '" + CStr(Today.Date) + "'"
26 'IdThoiDiem <> (Select distinct IdThoiDiem from ChiTietTuyen) and
27 'MessageBox.Show(lenh)
28 End If
29
30 'MessageBox.Show(lenh1)
31 'MessageBox.Show(lenh)
32 ''connect.Close()
33 Dim com2 As New SqlCommand(lenh, connect)
34 Try
35 connect.Open()
36 com2.ExecuteNonQuery()
37 connect.Close()
38 Catch ex As Exception
39 connect.Close()
40 'MessageBox.Show("Xoa ko thanh cong")
41 End Try
42
43 '--------------------------------------------------Xu ly voi bang chuyenxxe, chongoi, banve
44 lenh = "Delete from BanVe where IdChuyen in( Select IdChuyen from ChuyenXe where NgayDi < '" + CStr(Today.Date) + "')"
45 Dim com As New SqlCommand(lenh, connect)
46 Try
47 connect.Open()
48 com.ExecuteNonQuery()
49 connect.Close()
50 Catch ex As Exception
51 connect.Close()
52 'MessageBox.Show("Xoa ko thanh cong")
53 End Try
54
55 lenh = "Delete from ChoNgoi where IdChuyen in( Select IdChuyen from ChuyenXe where NgayDi < '" + CStr(Today.Date) + "')"
56 Dim com4 As New SqlCommand(lenh, connect)
57 Try
58 connect.Open()
59 com4.ExecuteNonQuery()
60 connect.Close()
61 Catch ex As Exception
62 connect.Close()
63 'MessageBox.Show("Xoa ko thanh cong")
64 End Try
65
66
67 lenh = "Select * from BanVe"
68 bang = Doc_bang(lenh)
69 If bang.Rows.Count = 0 Then
70 'MessageBox.Show(bang.Rows.Count.ToString)
71 lenh = "Delete from ChuyenXe"
72 Else
73 'MessageBox.Show(bang.Rows.Count.ToString)
74 lenh = "Delete from ChuyenXe where IdChuyen <> (Select IdChuyen from BanVe)"
75 End If
76
77 'MessageBox.Show(lenh)
78 'MessageBox.Show(lenh)
79 'connect.Close()
80 Dim com3 As New SqlCommand(lenh, connect)
81 Try
82 connect.Open()
83 com3.ExecuteNonQuery()
84 connect.Close()
85 Catch ex As Exception
86 connect.Close()
87 'MessageBox.Show("Xoa ko thanh cong")
88 End Try
89
90 End Sub
91 End Class